home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 48
/
MOBICLIC 48.ISO
/
pc
/
DATA
/
PROM
/
IMPRIM02.DIR
/
00005_Script_5
< prev
next >
Wrap
Text File
|
2002-07-12
|
866b
|
36 lines
-- initialisations
on exitFrame
global gMyParent, gListeCom,
masquerPistes "21>61"
--transfert des valeurs des champs gris vers champs noirs
gestTransfert
--code remontee
case gMyParent of
0: put "" into field "code_r"
1: put "C36A" into field "code_r"
2: put "L12A" into field "code_r"
end case
--Affichage d'une ou deux grilles suivant les nombre n'abonnements
if count(gListeCom) = 1 then
masquerPistes 66
masquerPistes "76>85"
else
masquerPistes 65
end if
-- verification du mode de paiement choisi
if member("ChoixCB").hilite = 1 then
member("iChoixCB").hilite = 1
masquerPistes 92
afficherPistes "94>99"
else
member("iChoixCheq").hilite = 1
masquerPistes "94>99"
afficherPistes 92
end if
set the checkBoxAccess to 2
end